home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
boostrs.arc
/
XNSORBIT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1985-11-06
|
556b
|
32 lines
{$IBodecl}
{$IPutStr}
{$ICopies}
{$IBoxul}
{$ISetAtt}
{$Itimer}
{$INsOrbit}
var
Ulx, Uly : Integer;
BEGIN
ClrScr;
for i := 1 to 15 do
begin
Boxul (1+(i-1)*4,1,4+(i-1)*4,4,1,14);
Boxul (1+(i-1)*4,6,4+(i-1)*4,9,2,14);
Boxul (1+(i-1)*4,11,4+(i-1)*4,14,3,14);
Boxul (1+(i-1)*4,16,4+(i-1)*4,19,4,14);
end;
PutStr (h,'Press enter to orbit',60,25,14);
read;
Randomize;
Ulx := Random(15);
Uly := Random( 4);
NsOrbit (1+Ulx*4, 1+Uly*5, 4+Ulx*4, 4+Uly*5, Uly+1, 4);
END.